12 POKE53280,5:POKE53281,6
15 GOSUB1000
20 PRINT""SPC(13)"[211]PY'S [196]EMISE"
30 PRINT""SPC(9)"[215]RITTEN BY [193]LAN [218]ELDIN"
40 PRINT"[201]NSERT[160][211][201][196][197][160]1 OF THE [194][207][206][213][211] DISK INTO"
42 PRINT"YOUR DRIVE AND PRESS A KEY."
44 PRINTSPC(15)"-- [207][210] --"
50 PRINT"<[208]RESS '[209]' TO RETURN TO [204][207][193][196][211][212][193][210]>"
60 PRINT"[211]PY'S [196]EMISE IS COPYRIGHTED BY"
62 PRINT"[145][208][207][204][193][210][215][193][210][197] [211]OFTWARE."
65 :
70 POKE198,0:WAIT198,1:GETA$
75 IFA$="Q"THEN60000
76 GOSUB10000
77 PRINT"[147]"SPC(10)"[194]OOTING [211]PY'S [196]EMISE"
78 F$="SPYS"
80 PRINT"LOADF$,8":PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
1000 :
1010 PRINT"[147][156]****************************************";:FORX=1TO23
1012 PRINT"*"SPC(38)"*";:NEXT
1014 PRINT"***************************************";:POKE56295,PEEK(55296)
1016 POKE2023,42
1020 RETURN
10000 :
10010 GOSUB59000
10020 IFN$="SPY'S DEMI"THENRETURN
10030 PRINT"[147]       [211]PY'S [196]EMISE NOT FOUND..."
10040 PRINT"  [208]LEASE INSERT THAT DISK TO TRY AGAIN."
10045 PRINT"               -- [207][210][160]--"
10050 PRINT"   <[208]RESS '[209]' TO RETURN TO [204][207][193][196][211][212][193][210]>"
10060 POKE198,0:WAIT198,1:GETA$
10070 IFA$="Q"THEN60000
10080 GOTO10000
10090 :
59000 :
59010 OPEN15,8,15,"I0"
59020 OPEN8,8,8,"#"
59030 PRINT#15,"UA:8 0 18 0"
59040 PRINT#15,"B-P:8 144"
59050 GET#8,A$,B$,C$,D$,E$,F$,G$,H$,I$,J$
59055 N$=""
59056 N$=A$+B$+C$+D$+E$+F$+G$+H$+I$+J$
59060 CLOSE8:CLOSE15
59070 RETURN
60000 :
60010 OPEN15,8,15,"R0:STAR=STAR":INPUT#15,ER:CLOSE15
60020 IFER<>63THEN61000
60030 PRINT"[147]"SPC(12)"[199]OING TO [204][207][193][196][211][212][193][210]..."
60040 F$="HELLO CONNECT"
60050 PRINT"LOADF$,8":PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
60060 :
61000 REM  IS LOADSTAR THERE?
61010 GOSUB59000
61020 IFN$="LOADSTAR #"THENRETURN
61030 PRINT"[147]         [204][207][193][196][211][212][193][210] NOT FOUND..."
61040 PRINT"  [208]LEASE INSERT THAT DISK TO TRY AGAIN."
61050 PRINT"   [208]RESS ANY KEY WHEN YOU ARE READY."
61060 POKE198,0:WAIT198,1:POKE198,0:GOTO61000